home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / mactool / progrep.cpt / Program Reporter 0.95 / background_2764.txt next >
Encoding:
Text File  |  1991-07-09  |  8.1 KB  |  324 lines
  1. -- background: 2764 from stack: in.95
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: control
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A000
  11. -- rect: left=143 top=188 right=244 bottom=207
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 8538 / 8538
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Scan Volume
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the hilite of me to true
  23.   global diskList
  24.   put empty into bg field "Report"
  25.   set scroll of bg field "Report" to 0
  26.   if diskList is empty or the number of lines in diskList is 0 then
  27.     beep
  28.     answer "No disk to scan..." with "OK"
  29.     set hilite of me to false
  30.     exit mouseUp
  31.   end if
  32.   lock screen
  33.   put "-----------------------------------------------" into dashes
  34.   put return & "Select disk to scan:" into prompt
  35.   get showList(diskList,return,prompt,true,"OK,Cancel^,All","")
  36.   if line 1 of it is "Cancel" then
  37.     set hilite of me to false
  38.     exit mouseUp
  39.   else if line 1 of it is "All" then
  40.     put diskList into vList
  41.   else
  42.     put line 2 to (the number of lines of it) of it into vList
  43.   end if
  44.   set cursor to watch
  45.   repeat with v = 1 to the number of lines of vList
  46.     put item 1 of line v of vList & ":" into vName
  47.     put "Scanning" && quote & item 1 of line v of vList & quote into bg field "progressReport"
  48.     unlock screen
  49.     put empty into files
  50.     put empty into fCreator
  51.     repeat with i=1 to the number of lines in bg field "types"
  52.       put line i of bg field "types" into fType
  53.       if i is 1 then
  54.         get wickedFind(vName,fCreator,fType,files,true)
  55.         if v = 1 then
  56.           put "Volume" && quote & item 1 of line v of vList & quote & return into theReport
  57.         else
  58.           put return & return & return & "Volume" && quote & item 1 of line v of vList & quote & return into theReport
  59.         end if
  60.         put char 1 to length(theReport) of dashes & return after theReport
  61.         put empty into fCreator
  62.         if line 1 of it is not 0 then
  63.           beep
  64.           put return & "ΓÇóΓÇó Scan failed ΓÇóΓÇó" & return after theReport
  65.           put "ΓÇóΓÇó Error" && line 1 of it && "ΓÇóΓÇó" after theReport
  66.           exit repeat
  67.         end if
  68.         put return & "ΓÇóΓÇó" && line i of bg field "descriptions" & return & return after theReport
  69.       else
  70.         get wickedFind(vName,fType,fCreator,files,true)
  71.         if line 1 of it is not 0 then
  72.           beep
  73.           put return & "ΓÇóΓÇó Scan failed ΓÇóΓÇó" & return after theReport
  74.           put "ΓÇóΓÇó Error" && line 1 of it && "ΓÇóΓÇó" after theReport
  75.           exit repeat
  76.         end if
  77.         put return & return & "ΓÇóΓÇó" && line i of bg field "descriptions" & return & return after theReport
  78.       end if
  79.       if the number of lines in it < 2 then
  80.         put "ΓÇóΓÇó None Found ΓÇóΓÇó" & return after theReport
  81.       else
  82.         delete line 1 of it
  83.         get sorter(it,"A",1)
  84.         put it after theReport
  85.       end if
  86.     end repeat
  87.     put theReport after bg field "Report"
  88.   end repeat
  89.   put return & "ΓÇóΓÇó report prepared on" && the short date && the short time & return after bg field "Report"
  90.   put empty into bg field "progressReport"
  91.   set the hilite of me to false
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 3 (button)
  97. -- low flags: 00
  98. -- high flags: A000
  99. -- rect: left=460 top=19 right=64 bottom=497
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 18229 / 18229
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Info
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   if not visible of card field "info" then
  111.     lock screen
  112.     --set hilite of the target to true
  113.     hide bg button "Quit"
  114.     hide bg button "Go Home"
  115.     show card field "info"
  116.     unlock screen with visual effect wipe down
  117.   else
  118.     lock screen
  119.     hide card field "info"
  120.     show bg button "Quit"
  121.     show bg button "Go Home"
  122.     unlock screen with visual effect wipe up
  123.     set hilite of the target to false
  124.   end if
  125. end mouseUp
  126.  
  127.  
  128. -- part 4 (field)
  129. -- low flags: 01
  130. -- high flags: 0000
  131. -- rect: left=32 top=80 right=99 bottom=105
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 0
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: 
  140.  
  141.  
  142. -- part 7 (field)
  143. -- low flags: 01
  144. -- high flags: 0000
  145. -- rect: left=5 top=322 right=342 bottom=395
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 0
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: progressReport
  154.  
  155.  
  156. -- part 9 (field)
  157. -- low flags: 01
  158. -- high flags: 0000
  159. -- rect: left=47 top=103 right=192 bottom=230
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 0
  163. -- font id: 3
  164. -- text size: 9
  165. -- style flags: 0
  166. -- line height: 12
  167. -- part name: Volumes
  168.  
  169.  
  170. -- part 11 (field)
  171. -- low flags: 01
  172. -- high flags: 4007
  173. -- rect: left=227 top=78 right=320 bottom=501
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 0
  177. -- font id: 4
  178. -- text size: 9
  179. -- style flags: 0
  180. -- line height: 12
  181. -- part name: Report
  182.  
  183.  
  184. -- part 14 (field)
  185. -- low flags: 80
  186. -- high flags: 4007
  187. -- rect: left=198 top=100 right=189 bottom=260
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 0
  191. -- font id: 3
  192. -- text size: 9
  193. -- style flags: 0
  194. -- line height: 12
  195. -- part name: types
  196.  
  197.  
  198. -- part 15 (field)
  199. -- low flags: 80
  200. -- high flags: 4007
  201. -- rect: left=340 top=7 right=83 bottom=457
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 0
  205. -- font id: 3
  206. -- text size: 9
  207. -- style flags: 0
  208. -- line height: 12
  209. -- part name: descriptions
  210.  
  211.  
  212. -- part 16 (button)
  213. -- low flags: 00
  214. -- high flags: A000
  215. -- rect: left=33 top=188 right=245 bottom=123
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 1009 / 1009
  218. -- text alignment: 1
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: Update Volume List
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   getVolumes
  227. end mouseUp
  228.  
  229.  
  230. -- part 17 (button)
  231. -- low flags: 00
  232. -- high flags: A000
  233. -- rect: left=145 top=255 right=306 bottom=205
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 1007 / 1007
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Print Report
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   if bg field "Report" is empty then
  245.     beep
  246.     answer "No report to print..."
  247.   else
  248.     printField "bg field Report"
  249.   end if
  250. end mouseUp
  251.  
  252.  
  253. -- part 18 (button)
  254. -- low flags: 00
  255. -- high flags: A000
  256. -- rect: left=398 top=21 right=62 bottom=445
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 21700 / 21700
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: Go Home
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   answer "Switch to Home stack?" with "cancel" or "OK"
  268.   if it is "OK" then
  269.     visual effect venetian blinds to black
  270.     visual effect venetian blinds
  271.     go home
  272.   end if
  273. end mouseUp
  274.  
  275.  
  276.  
  277. -- part 19 (button)
  278. -- low flags: 00
  279. -- high flags: A000
  280. -- rect: left=353 top=19 right=64 bottom=386
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 1015 / 1015
  283. -- text alignment: 1
  284. -- font id: 0
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: Quit
  289. ----- HyperTalk script -----
  290. on mouseUp
  291.   answer "Quit HyperCard?" with "cancel" or "OK"
  292.   if it is "OK" then doMenu "Quit HyperCard"
  293. end mouseUp
  294.  
  295.  
  296.  
  297. -- part 20 (button)
  298. -- low flags: 00
  299. -- high flags: A000
  300. -- rect: left=50 top=256 right=304 bottom=107
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 1004 / 1004
  303. -- text alignment: 1
  304. -- font id: 0
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: Save Report
  309. ----- HyperTalk script -----
  310. on mouseUp
  311.   if bg field "Report" is empty then
  312.     beep
  313.     answer "No report to save..."
  314.   else
  315.     get "Program Report" && the short date
  316.     put newFileName("Save Report As:",it) into fileName
  317.     if fileName is not empty then
  318.       open file fileName
  319.       write bg field "Report" to file fileName
  320.       close file fileName
  321.     end if
  322.   end if
  323. end mouseUp
  324.